10 POKE56,32:POKE55,32:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
25 POKE788,52
30 POKE53281,0:POKE53280,0:PRINT"[147][129]"TAB(7)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
40 PRINTTAB(11)"[155]BY [200]UGH [205]C[205]ENAMIN
42 [139]F1[167]100
44 F1[178]1
50 [158]57812"WP/CM/UNP",DV,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
60 [158]57812"OP ED SHPS",DV,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
90 [151]53280,0
92 WP[178]49152:UN[178]51456:CM[178]50688
94 LF$(0)[178]"(null)ASCASC":LF$(1)[178]"(null)(null) "
96 S(1)[178]16384:L(1)[178]20595[171]S(1)
97 S(2)[178]20736:L(2)[178]24148[171]S(2)
100 [153][163]12)" 1.CONT (null)EPAIR (null)HOP
102 PRINTTAB(12)" 2.[154] [211]HIPWRECK
104 [153][163]12)" 3.CONT (null)UIT
106 GETA$:IFA$<"1"ORA$>"3"THEN106
108 D=VAL(A$):IFD=3THEN40000
109 FORI=3TO8:POKE781,I:SYS59903:NEXT
110 SYSCM,S(D),8192,L(D)
112 POKE251,32:POKE252,224:POKE253,204:SYS51456
120 PRINT" 1.[154] [202]UST SHOW THE PICTURE.
122 [153]" 2.CONT (null)HOW THE PICTURE AND PRINT IT ON
125 PRINT"    A 7-PIN (1525-EMULATING) PRINTER.
130 [153]" 3.CONT (null)HOW THE PICTURE AND PRINT IT ON
135 PRINT"    AN 8-PIN ([197]PSON-EMULATING) PRINTER.
140 [153]" 4.CONT (null)OGGLE LINEFEED -- "LF$(LF)
150 [153]" 5.CONT (null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)
170 PRINT"[155]  [205]AKE SURE YOUR PRINTER IS ON-LINE.
220 [151]198,0
222 [151]53280,0
230 [161]A$:[139]A$[179]"1"[176]A$[177]"5"[167]230
232 [139]A$[178]"5"[167]40000
233 [139]A$[178]"4"[167]LF[178]1[171]LF:[151]214,17:[153]:[153][163]23)""LF$(LF):[137]220
235 [158]51459
240 [139]A$[178]"2"[167][158]49155,4,5,LF,0,0,39,24,224:[137]280
250 [139]A$[178]"3"[167][158]49152,4,5,LF,0,0,39,24,224,76,35,65,8,0:[137]280
260 [151]198,0
262 [151]53280,0
270 [161]A$:[139]A$[178]""[167]270
280 [151]251,32:[151]252,224:[151]253,204:[158]51459
290 [153]"LOAD":[137]30
10000 [159]15,8,15,"S0:B.OP ED 125":[160]15:[148]"B.OP ED 125",8:[128]
40000 [151]788,49
40002 A$[178]"HELLO CONNECT":[129]I[178]8[164]13:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]43,1:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I:[151]43,1
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]